home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / CLONEDET.ZIP / ONDEMAND.TXT < prev    next >
Text File  |  1996-07-09  |  1KB  |  50 lines
  1. This is a simple on-demand clone detection script.  Simply copy and
  2. paste the following into your Aliases, and type /clone to run it on
  3. the current channel.
  4.  
  5.  
  6. clone {
  7.   echo  -=Clone Detection In Progress=-
  8.   set %nick1 ""
  9.   set %nick2 ""
  10.   set %add1 ""
  11.   set %add2 ""
  12.   set %c1 1
  13.   set %c3 0
  14.   set %c4 0
  15.   set %flag 0
  16.   set %flag2 0
  17.   :next1
  18.   set %c2 %c1
  19.   set %nick1 $nopnick(%c1,#)
  20.   set %add1 $address($nopnick(%c1,#),3)
  21.   if $nopnick(%c1,#) == $null goto end
  22.   if %add1 == $null { echo 6 -= %nick1 No Mask Available - Skipping Nick =-
  23.     inc %c1
  24.     goto next1
  25.   }
  26.   echo 4 -=Checking %nick1 $+ =-
  27.   :next2
  28.   if $nopnick(%c2,#) == $null { inc %c1
  29.     goto next1
  30.   }
  31.   set %nick2 $nopnick(%c2,#)
  32.   set %add2 $address($nopnick(%c2,#),3)
  33.   if %nick1 == %nick2 { inc %c2
  34.     goto next2
  35.   }
  36.   if %nick1 != %nick2 && %add1 == %add2 && %add1 != $null goto clone
  37.   inc %c2
  38.   goto next2
  39.   :clone
  40.   if %nick1 isop # { inc %c2
  41.     goto next2
  42.   }
  43.   echo 3 -= Clone Detected with  %nick1 -and- %nick2 =-
  44.   inc %c2
  45.   goto next2
  46.   :end
  47.   unset %nick2 %c1 %c2 %c3 %c4 %flag %flag2
  48.   echo  -=Clone Detection Completed=-
  49. }
  50.